home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MIDI REC.cpt / MIDI Recorder / card_3012.txt < prev    next >
Text File  |  1988-01-04  |  7KB  |  286 lines
  1. -- card: 3012 from stack: in
  2. -- bmap block id: 3980
  3. -- flags: 4000
  4. -- background id: 2777
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openStack
  8.   global track
  9.   hide menubar
  10.   put 0 into track
  11.   set hilite of button "Track A" to true
  12.   set hilite of button "Track B" to false
  13. end openStack
  14.  
  15.  
  16.  
  17. -- part 2 (button)
  18. -- low flags: 00
  19. -- high flags: 0000
  20. -- rect: left=344 top=290 right=321 bottom=377
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 1011 / 1011
  23. -- text alignment: 1
  24. -- font id: 0
  25. -- text size: 12
  26. -- style flags: 0
  27. -- line height: 16
  28. -- part name: Home
  29. ----- HyperTalk script -----
  30. on mouseUp
  31.   visual effect iris close
  32.   go home
  33. end mouseUp
  34.  
  35.  
  36.  
  37.  
  38. -- part 4 (button)
  39. -- low flags: 00
  40. -- high flags: 8004
  41. -- rect: left=263 top=99 right=119 bottom=333
  42. -- title width / last selected line: 0
  43. -- icon id / first selected line: 0 / 0
  44. -- text alignment: 1
  45. -- font id: 0
  46. -- text size: 12
  47. -- style flags: 0
  48. -- line height: 16
  49. -- part name: RECORD
  50. ----- HyperTalk script -----
  51. on mouseUp
  52.   global track
  53.   set hilite of button "Record" to true
  54.   put card field "Time" * 1000 into time
  55.   answer "   Start MIDI recording ?" with "Cancel" or "OK"
  56.   if it is "OK" then
  57.     MIDI in,time
  58.     if track is 0 then
  59.       put the result into card field "Data A"
  60.     else
  61.       put the result into card field "Data B"
  62.     end if
  63.   end if
  64.   set hilite of button "Record" to false
  65. end mouseUp
  66.  
  67.  
  68.  
  69. -- part 5 (button)
  70. -- low flags: 00
  71. -- high flags: 8004
  72. -- rect: left=263 top=127 right=146 bottom=332
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 0 / 0
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: PLAY
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   global track
  84.   set hilite of button "Play" to true
  85.   if track is 0 then
  86.     put card field "Data A" into data
  87.   else
  88.     put card field "Data B" into data
  89.   end if
  90.   MIDI out,data
  91.   MIDI out,"176 123 0"
  92.   set hilite of button "Play" to false
  93. end mouseUp
  94.  
  95.  
  96.  
  97. -- part 8 (field)
  98. -- low flags: 00
  99. -- high flags: 0002
  100. -- rect: left=360 top=100 right=117 bottom=410
  101. -- title width / last selected line: 0
  102. -- icon id / first selected line: 0 / 0
  103. -- text alignment: 0
  104. -- font id: 3
  105. -- text size: 12
  106. -- style flags: 0
  107. -- line height: 16
  108. -- part name: Time
  109.  
  110.  
  111. -- part 9 (field)
  112. -- low flags: 00
  113. -- high flags: 0007
  114. -- rect: left=42 top=99 right=305 bottom=140
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 0 / 0
  117. -- text alignment: 0
  118. -- font id: 3
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: Data A
  123.  
  124.  
  125. -- part 10 (field)
  126. -- low flags: 00
  127. -- high flags: 0007
  128. -- rect: left=150 top=99 right=306 bottom=245
  129. -- title width / last selected line: 0
  130. -- icon id / first selected line: 0 / 0
  131. -- text alignment: 0
  132. -- font id: 3
  133. -- text size: 12
  134. -- style flags: 0
  135. -- line height: 16
  136. -- part name: Data B
  137.  
  138.  
  139. -- part 11 (button)
  140. -- low flags: 00
  141. -- high flags: E002
  142. -- rect: left=51 top=77 right=93 bottom=121
  143. -- title width / last selected line: 0
  144. -- icon id / first selected line: 0 / 0
  145. -- text alignment: 1
  146. -- font id: 0
  147. -- text size: 12
  148. -- style flags: 0
  149. -- line height: 16
  150. -- part name: Track A
  151. ----- HyperTalk script -----
  152. on mouseUp
  153.   global track
  154.   put 0 into track
  155.   set hilite of button "Track B" to false
  156.   set hilite of button "Track A" to true
  157. end mouseUp
  158.  
  159.  
  160.  
  161. -- part 12 (button)
  162. -- low flags: 00
  163. -- high flags: A002
  164. -- rect: left=156 top=77 right=93 bottom=226
  165. -- title width / last selected line: 0
  166. -- icon id / first selected line: 0 / 0
  167. -- text alignment: 1
  168. -- font id: 0
  169. -- text size: 12
  170. -- style flags: 0
  171. -- line height: 16
  172. -- part name: Track B
  173. ----- HyperTalk script -----
  174. on mouseUp
  175.   global track
  176.   put 1 into track
  177.   set hilite of button "Track A" to false
  178.   set hilite of button "Track B" to true
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 13 (button)
  184. -- low flags: 00
  185. -- high flags: 0000
  186. -- rect: left=341 top=93 right=109 bottom=360
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 16692 / 16692
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: Up
  195. ----- HyperTalk script -----
  196. on mouseStillDown
  197.   add 1 to card field Time
  198. end mouseStillDown
  199.  
  200.  
  201.  
  202. -- part 14 (button)
  203. -- low flags: 00
  204. -- high flags: 0000
  205. -- rect: left=341 top=108 right=124 bottom=359
  206. -- title width / last selected line: 0
  207. -- icon id / first selected line: 3584 / 3584
  208. -- text alignment: 1
  209. -- font id: 0
  210. -- text size: 12
  211. -- style flags: 0
  212. -- line height: 16
  213. -- part name: Down
  214. ----- HyperTalk script -----
  215. on mouseStillDown
  216.   subtract 1 from card field Time
  217. end mouseStillDown
  218.  
  219.  
  220.  
  221. -- part 15 (field)
  222. -- low flags: 01
  223. -- high flags: 0000
  224. -- rect: left=346 top=78 right=93 bottom=437
  225. -- title width / last selected line: 0
  226. -- icon id / first selected line: 0 / 0
  227. -- text alignment: 0
  228. -- font id: 3
  229. -- text size: 9
  230. -- style flags: 0
  231. -- line height: 12
  232. -- part name: 
  233.  
  234.  
  235. -- part 19 (button)
  236. -- low flags: 00
  237. -- high flags: 8004
  238. -- rect: left=263 top=154 right=173 bottom=332
  239. -- title width / last selected line: 0
  240. -- icon id / first selected line: 0 / 0
  241. -- text alignment: 1
  242. -- font id: 0
  243. -- text size: 12
  244. -- style flags: 0
  245. -- line height: 16
  246. -- part name: PROGRAM
  247. ----- HyperTalk script -----
  248. on mouseUp
  249.   ask " Enter program number !"
  250.   MIDI out,"192"
  251.   MIDI out,it
  252. end mouseUp
  253.  
  254.  
  255.  
  256. -- part 20 (button)
  257. -- low flags: 00
  258. -- high flags: 0000
  259. -- rect: left=256 top=222 right=280 bottom=333
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 0
  264. -- text size: 12
  265. -- style flags: 0
  266. -- line height: 16
  267. -- part name: 
  268. ----- HyperTalk script -----
  269. on mouseUp
  270.   visual effect dissolve
  271.   go to next card
  272. end mouseUp
  273.  
  274.  
  275.  
  276. -- part contents for card part 8
  277. ----- text -----
  278. 20
  279.  
  280. -- part contents for card part 15
  281. ----- text -----
  282. < Recording Limit >
  283.  
  284. -- part contents for card part 9
  285. ----- text -----
  286. 89232 89153 89120 90949 90916 92488 92708 151952 151880 151808 152133 152064 152641 152576 287632 287555 287514 288583 288548 289354 289319 335760 335687 335616 336970 336896 338243 338176 484496 484421 484377 486216 486176 487244 487201 543888 543820 543744 545096 545280 550981 550912 678544 678467 678427 680263 680226 682314 682281 742032 741962 741888 744519 744448 749891 749824 897168 897089 897052 898117 898083 899656 899624 956368 956161 957442 958979 961540 962821 964358 966151 968201 969738 971019 972301 974094 976399 977680 979408 979218 981779 983060 985877 988950 993815 1006358 1008661 1009939 1011218 1011728 1012750 1014029 1014283 1015305 1016581 1016835 1018113 1019392 1038800 1038593 1039618 1040899 1041156 1042181 1043463 1043977 1044746 1046028 1046542 1047567 1048850 1049363 1050132 1051414 1051927 1052952 1054233 1055515 1057308 1059869 1063888 1063710 1074461 1074716 1077019 1077273 1078296 1079831 1080086 1081109 1082388 1082642 1083664 1085455 1087758 1095693 1097483 1099786 1100297 1101063 1102342 1102852 1103875 1105360 1105154 1105665 1106432 1279888 1279816 1279744 1281089 1281024 1282117 1282048